COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	  1) XM.FAI[TMP,LCS] and 2) XMX.FAI[TMP,LCS]	8-29-78 10:19	pages 1,1
C00011 ENDMK
C⊗;
  1) XM.FAI[TMP,LCS] and 2) XMX.FAI[TMP,LCS]	8-29-78 10:19	pages 1,1

**** File 1) XM.FAI[TMP,LCS], Page 2 line 22
1)		SETZM BIGBOT#
1)		SETZM GO#
1)		INCHWL E
1)		CAIE E,"B"		; B FOR BIG BOTTOM MARGIN (200=1")
1)		CAIN E,"b"
1)		CAIA
1)		JRST .+3
1)		SETOM BIGBOT
1)		JRST GOGO-1
1)		CAIE E,"L"		; L FOR LEGAL SIZE
**** File 2) XMX.FAI[TMP,LCS], Page 3 line 22
2)		SETZM GO#
2)		INCHWL E
2)		CAIE E,"L"		; L FOR LEGAL SIZE
***************


**** File 1) XM.FAI[TMP,LCS], Page 3 line 27
1)			SKIPE BIGBOT	;BIGBOT=NEG=200 BOTTOM MARGIN
1)			MOVEI A,=200
1)			SKIPGE ROFLG
**** File 2) XMX.FAI[TMP,LCS], Page 4 line 27
  1) XM.FAI[TMP,LCS] and 2) XMX.FAI[TMP,LCS]	8-29-78 10:19	pages 3,4

2)			SKIPGE ROFLG
***************


**** File 1) XM.FAI[TMP,LCS], Page 4 line 20
1)	PLOT:	HRR C,IBUF+1
**** File 2) XMX.FAI[TMP,LCS], Page 5 line 20
2)	SVX:	0
2)	SVY:	0
2)	SVPEN:	0
2)	PLOT:	HRR C,IBUF+1
***************


**** File 1) XM.FAI[TMP,LCS], Page 4 line 24
1)		SKIPGE ROFLG
1)		JRST ROTA-1
1)	PLOT1:	MOVE 14,2(E)
1)		LSHC 14,-10
1)		ASH 15,-34
1)		MOVEM 15,SVPEN#		;GET PEN CODE
1)		MOVM A,15
**** File 2) XMX.FAI[TMP,LCS], Page 5 line 28
2)		SETZM XMOV#
2)		SETZM YMOV#
2)		SETZ 10,	; INIT SMEAR COUNTER
2)		SKIPGE ROFLG
2)		JRST ROTA-1
2)	;;PLOT1:	MOVEM X,XXX
2)	;;	MOVEM Y,YYY
2)	PLOT1:	MOVE XX
2)	  	MOVEM SVXX#
2)	  	MOVE YY
2)		MOVEM SVYY#
2)	PLOT2:	MOVE 14,2(E)
2)		LSHC 14,-10
2)		ASH 15,-34
2)		MOVEM 15,SVPEN		;GET PEN CODE
2)		MOVM A,15
***************


**** File 1) XM.FAI[TMP,LCS], Page 4 line 33
1)		MOVEM 15,SVY#		;GET Y
1)		SUB 15,YY
**** File 2) XMX.FAI[TMP,LCS], Page 5 line 46
2)		ADD 15,YMOV		;FOR THICKENING
2)		MOVEM 15,SVY		;GET Y
  1) XM.FAI[TMP,LCS] and 2) XMX.FAI[TMP,LCS]	8-29-78 10:19	pages 4,5

2)		SUB 15,YY
***************


**** File 1) XM.FAI[TMP,LCS], Page 4 line 45
1)		MOVEM 15,SVX#		;GET X
1)		SUB 15,XX
**** File 2) XMX.FAI[TMP,LCS], Page 5 line 59
2)		ADD 15,XMOV		;FOR THICKENING
2)		MOVEM 15,SVX		;GET X
2)		SUB 15,XX
***************


**** File 1) XM.FAI[TMP,LCS], Page 5 line 121
1)	ENOUT:	AOBJN E,PLOT1	;GET NEXT
1)		JRST OUTER
**** File 2) XMX.FAI[TMP,LCS], Page 6 line 121
2)	ENOUT:	MOVEI 2
2)		CAME SVPEN
2)		JRST EN2
2)		SOJGE 10,SMEAR
2)		JUMPE 10,EN3
2)		MOVEI 10,5	;SET UP COUNTER FOR SMEAR (4)
2)	;;	MOVEI 10,4	;SET UP COUNTER FOR SMEAR (4)
2)	;;	JRST EN2
2)	SMEAR:	MOVE SVXX
2)		MOVEM XX
2)		MOVE SVYY
2)		MOVEM YY
2)		CAIN 10,5
2)		JRST LEFT
2)		CAIN 10,4
2)		JRST RIGHT
2)		CAIN 10,3
2)		JRST UP
2)		CAIN 10,2
2)		JRST DOWN
2)		SETZ 10,
2)		JRST EN3
2)	DOWN:	SOS YMOV
2)		SOS YMOV
2)		SOS YY
2)		SOS YY
2)		JRST PLOT2
2)	LEFT:	SOS XMOV
2)		SOS XX
2)		JRST PLOT2
  1) XM.FAI[TMP,LCS] and 2) XMX.FAI[TMP,LCS]	8-29-78 10:19	pages 5,6

2)	RIGHT:	AOS XMOV
2)		AOS XMOV
2)		AOS XX
2)		AOS XX
2)		JRST PLOT2
2)	UP:	AOS YMOV
2)		AOS YY
2)		JRST LEFT 
2)	;	JUMPE 10,SM4	; ↓
2)	;	CAIN 10,3	; ←
2)	;	JRST SM1
2)	;	CAIN 10,2	; ↑
2)	;	JRST SM2
2)	;SM3:	SOS SVY   	; →
2)	;	SOS YY  
2)	;	JRST SM2+2
2)	;SM4:	SOS SVY
2)	;	SOS YY
2)	;SM1:	SOS SVX
2)	;;PAC:	0		;CALL PAC(PW,AR)
2)	;	MOVEI 14,SVX	; ******* USES AC'S 4,5,6 ********
2)	;	ADDI 14,2
2)	;	HRR 15,@14	
2)	;	LSHC 15,-10	;PEN
2)	;	SOJ 14,
2)	;	HRR 15,@14
2)	;	LSHC 15,-16	;Y
2)	;	SOJ 14,
2)	;	HRR 15,@14	
2)	;	LSHC 15,-16	;X
2)	;	MOVE 14,16
2)	;;	MOVEM 16,2(E)  
2)	;	MOVE X,XXX#
2)	;	MOVE Y,YYY#
2)	;	JRST PLOT1+1
2)	;SM2:	AOS SVY
2)	;	AOS YY
2)	;	AOS SVX
2)	;	AOS XX
2)	;	JRST SM1+1
2)	EN3:	SETZM YMOV
2)	EN2:	AOBJN E,PLOT1	;GET NEXT
2)		JRST OUTER
***************